1 screen1:width30:keyoff:color1,8,8:cls:px=128:sx=11:dx=11:fori=1to8:b$=b$+chr$(219):vpoke1751+i,255:nexti:a$=space$(sx)+b$+space$(dx):fori=0to7:reada:c$=c$+chr$(a):next:sprite$(0)=c$:data60,66,165,129,189,189,66,60
2 print"         10TH  FALL":fori=1to15:colori:forU=1to200:next:next:print:print"try to avoid the walls !!":print:print" press return";:r$=input$(1):cls:color1:fori=1to10:printa$;:next:sc=time
3 putsprite0,(px,80),15,0:a=int(rnd(1)*2):b=int(rnd(1)*2)+1:ifa=0thensx=sx-b:dx=dx+b:elseifa=1thensx=sx+b:dx=dx-b
4 ifsx<0thensx=0:dx=22elseifsx>22thensx=22:dx=0
5 ifvpeek(base(5)+(px/8)+288)<>219then9
6 b=stick(0):a$=space$(sx)+b$+space$(dx):ifb=3thenpx=px+8:elseifb=7thenpx=px-8
7 ifpx<8thenpx=8:elseifpx>240thenpx=240
8 printa$;:goto3
9 cls:print"your time  =  ";int((time-sc)/60);" sec.":putsprite0,(255,191):print:print"  again (s/n) "
10 r$=inkey$:ifr$="n"thenendelseifr$="s"thenrunelsegoto10